0 A$(0)="867EB76288308C04BF62893932629DB21F89589DB21F89589DB2C14827037E2A9DBD34CBBD34D71F201F98BDE824C1002705BD346D20058D06BD0C587E24FD3472C6A03D5849C34118EB625A1F02B6E7C38A01B7E7C3BE602D308903F83410BE602D1F235FA685A1A4270BACE41227211F32300820EEC107270631A8D85C20E5"
1 A$(1)="1F10B3602D445644564456CB80351035F25F20F9":CLS:SCREEN4,6,6:PRINT"Fonction SCREEN()","Copyright 1986 by Fabrice":PRINT:INPUT"Implantation :&H",X$:X=VAL("&H"+X$):FORT=1TO143:A=T>123:POKEX+T-1,VAL("&H"+MID$(A$(-A),T*2+A*246-1,2)):NEXT:EXECX:CLEAR,X-1